#!/usr/bin/runhugs

main=putStr(p++show p)where p="main=putStr(p++show p)where p="

--putStr(p++show p)where p="putStr(p++show p)where p="
